home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / wheels2.arc / TITLES.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-06-28  |  1.5 KB  |  53 lines
  1. {@@@@@@@@@@@ copyright (C) 1984 by Neil J. Rubenking @@@@@@@@@@@@@@@@@@@@@@@@
  2. The purchaser of these procedures and functions may include them in COMPILED
  3. programs freely, but may not sell or give away the source text.
  4.  
  5.     Demonstrates using the ROM character patterns to create large
  6.     titles.
  7.  
  8. }
  9. {$I getkeys.lib}
  10. {$I grfxtabl.lib}
  11. {$I titles.lib}
  12. var
  13.   N : byte;
  14.   OddLine : string[10];
  15.   C1, C2  : char;
  16. begin
  17.   MakeTitle('This is a',1);
  18.   MakeTitle('BIG Title',9);
  19.   MakeTitle('Press key.',17);
  20.   repeat until keypressed;
  21.   MakeTitle('ABCDEFGHIJ',1);
  22.   MakeTitle('KLMNOPQRST',9);
  23.   MakeTitle('UVWXYZ@#$%',17);
  24.   repeat until keypressed;
  25.   OddLine := '';
  26.   for N := 1 to 10 do OddLine := OddLine + chr(N);
  27.   MakeTitle(OddLine,1);
  28.   OddLine := '';
  29.   for N := 11 to 20 do OddLine := OddLine + chr(N);
  30.   MakeTitle(OddLine,9);
  31.   OddLine := '';
  32.   for N := 21 to 30 do OddLine := OddLine + chr(N);
  33.   MakeTitle(OddLine,17);
  34.   repeat until keypressed;
  35.   OddLine := '';
  36.   for N := 1 to 10 do OddLine := OddLine + chr(15);
  37.   MakeTitle(OddLine,1);
  38.   MakeTitle(OddLine,9);
  39.   MakeTitle(OddLine,17);
  40.   repeat until keypressed;
  41.   ClrScr;
  42.   WriteLn('Press various keys and fill the screen.  <Esc> to quit.');
  43.   repeat
  44.     GetKeys(C1,C2);
  45.     OddLine := '';
  46.     for N := 1 to 10 do OddLine := OddLine + C1;
  47.     MakeTitle(OddLine,1);
  48.     MakeTitle(OddLine,9);
  49.     MakeTitle(OddLine,17);
  50.     repeat until keypressed;
  51.   until (C1 = #27) and (C2 = #0);
  52.  
  53. end.